program main
   use run_test
   use kind_parameter

#ifdef f2008
   use, intrinsic :: iso_fortran_env, only : stdin=>input_unit, &
      stdout=>output_unit, &
      stderr=>error_unit
#else
#define stdin  5
#define stdout 6
#define stderr 0
#endif
   implicit none

   ! private
   !public:: test_fn
   ! external te1
   integer(i4)::ret

   ret=rtest(te1)
   ret=rtest(te2)

   write(*,*)  1,2,3,4
   write(*,*)  ret

!    write(6,*) 1,rtest(te1)
!    write(6,*) 2,rtest(te2)

end program main


